59390 POKE53280,0:POKE53281,0:PRINTCHR$(142)"[147]";
59391 PRINT"[146]       [153]   [146]   [169]  [146]       [146]  [169]  "
59392 PRINT"        [146]   [146]    [146]   [146]  [184]  [146] [184]   [146]   "
59393 PRINT"        [146]   [146]    [146]   [146]     [146]     [146]   "
59394 PRINT"        [146]   [146]       [146]     [146]        "
59395 PRINT"        [146]   [146]    [146]   [146]     [146]     [146]   "
59396 PRINT"          [146][169]    [146]   [146]     [146]     [146]   "
59397 PRINT"   [158] [146] [169][146][169]    [146] [146]  [169][146][169] [169]  [146]    [169]  [146]    [146]   "
59398 PRINT"    [169][146][169]   [146]    [169][146][169]   [146]  [185][146]     [146]  [185][146]    [146]   "
59399 PRINT"    [146][169]     [146]    [146]     [146]        [146]       "
59400 PRINT"    [146]    [146]       [146]       [146]     [146]    [146]      "
59401 PRINT"    [146][146]   [146]       [146]    [146]   [146]     [146]    [146]      "
59402 PRINT"    [146] [146]    [146]   [160] [146]     [146][169]       [146][169]      "
59403 PRINT"         udddddddddddddddddddddi"
59404 PRINT"         b       [159]  [146]BY  [146]        b"
59405 PRINT"         b                     b"
59406 PRINT"         b   [159] BRUCE NEVINS [146]    b"
59407 PRINT"         jfffffffffffffffffffffk"
59408 PRINT"        [150]PRESS ANY KEY  TO CONTINUE"
59409 POKE198,0:WAIT198,1
59450 POKE53280,0:POKE53281,12:PRINTCHR$(142)"[147]";
59451 PRINT"[146]      [151]USE NORMAL KEYS TO ENTER THE"
59452 PRINT"          FIRST THREE INPUTS"
59453 PRINT"         uccciuccciuccciuccci"
59454 PRINT"         b [155]7 [151]bb [155]8 [151]bb [155]9 [151]bb [155]- [151]b       [152][160] "
59455 PRINT"         [151]b U bb I bb O bb P b"
59456 PRINT"         jccckjccckjccckjccck"
59457 PRINT"      uccciuccciuccciuccciuccci   [152] "
59458 PRINT"      [151]b [155]0 [151]bb [155]4 [151]bb [155]5 [151]bb [155]6 [151]bb[155]DEL[151]b[152]   "
59459 PRINT"      [151]b H bb J bb K bb L bb : b"
59460 PRINT"      jccckjccckjccckjccckjccck"
59461 PRINT"             uccciuccciuccciuccci"
59462 PRINT"             b [155]1 [151]bb [155]2 [151]bb [155]3 [151]bb[155]RET[151]b"
59463 PRINT"             b M bb ,[160]bb . bb / b"
59464 PRINT"             jccckjccckjccckjccck"
59465 PRINT"         ucccccccccccccccccci"
59466 PRINT"         b     [155], COMA ,     [151]b"
59467 PRINT"         b     SPACE BAR    b"
59468 PRINT"         jcccccccccccccccccck"
59469 PRINT"    TYPE 60027 RETURN TO REMOVE LAST":POKE198,0
59470 PRINT"            LINE AFTER DATA"
60000 INPUT"[153]    STARTZEILE ";SL:INPUT"      ENDZEILE ";EL:NL=SL
60001 IFSL>60000OREL>60002OREL<SLORSL<0OREL<0THENGOSUB60024:GOTO60000
60002 INPUT" ZEILENABSTAND ";IN:IFIN>ELTHENGOSUB60024:GOTO60002
60003 PRINT"[147]"NL;"DATA ";:I$=""
60004 GETA$:IFA$=""THENPRINT"[175] [157][157]";:GOTO60004
60005 AV=-(A$="M")-2*(A$=",")-3*(A$=".")-4*(A$="J")-5*(A$="K")-6*(A$="L")
60006 AV=AV-7*(A$="U")-8*(A$="I")-9*(A$="O"):IFA$="H"THEN A$="0"
60007 IFA$="P"THEN A$="-"
60008 IFA$=CHR$(32)THEN A$=","
60009 IFA$=":"THENA$=CHR$(20)
60010 IFA$="/"THENA$=CHR$(13)
60011 IF(A$>CHR$(13)ANDA$<CHR$(20))OR(A$>CHR$(20)ANDA$<",")THENGOSUB60024:GOTO60004
60012 IFAV>0THEN A$=CHR$(48+AV)
60013 IF(A$>"9"ANDA$<"A")OR(A$>"G"ANDA$<CHR$(148))THENGOSUB60024:GOTO60004
60014 IFLEN(I$)>70ANDA$<>CHR$(13)ANDA$<>CHR$(20)THEN60004
60015 IFA$=CHR$(20) ANDLEN(I$)=0THEN60004
60016 PRINTA$;:IFA$=CHR$(20)THENI$=LEFT$(I$,LEN(I$)-1):GOTO60004
60017 IFA$=CHR$(13)THEN60020
60018 I$=I$+A$:GOTO60004
60019 REM USE KEYWORD ABREVEATIONS FOR ALL KEYWORDS IN THE REMAINING LINES
60020 PRINT"NL=";NL;":IN=";IN;":EL=";EL:PRINT"GOTO60022":POKE631,19:POKE632,17:POKE633,17
60021 POKE634,13:POKE635,13:POKE636,145:POKE637,145:POKE638,13:POKE198,8:END
60022 NL=NL+IN:IFNL>ELTHENA=PEEK(43)+256*PEEK(44):GOTO60026
60023 GOTO60003
60024 POKE54296,15:POKE54277,45:POKE54278,165:POKE54276,33:POKE54273,6
60025 POKE54272,5:FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:RETURN
60026 DEFFNDEEK(A)=PEEK(A)+256*PEEK(A+1):IFFNDEEK(A+2)<50000THENA=FNDEEK(A):GOTO60026
60027 N=FNDEEK(A+2):PRINT"[147]"N:PRINT"A="A":G[207]60026":POKE631,19:POKE632,13:POKE633,13:POKE198,3